home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
AGSBF10.ZIP
/
AGSBFS.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-11-24
|
19KB
|
905 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Real REAL001
Real REAL002
Real REAL003
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
;------------------------------------------------------------------------------
STRING002 = "AcaDe v1.03"
STRING003 = "<┤EGiS Corp Anti-Decompilation Engine."
STRING004 = "(C)1994 By Lone Runner/AGS"
STRING005 = ""
STRING006 = "Sorry dude, this time PPLD will not do the job... :)"
STRING024 = "UPDOWN82" + Chr(13) + Chr(27)
STRING016 = "@X0FReaD NeXT ? @X1F YES @X08 Nah "
STRING017 = "@X0FReaD NeXT ? @X08 Yes @X1F NAH "
INTEGER014 = 1
INTEGER015 = 1
INTEGER013 = ReadLine(PPEPath() + "NUSERS.DAT", 1)
INTEGER005 = 0
INTEGER006 = 0
INTEGER007 = 0
INTEGER008 = 0
INTEGER009 = 0
INTEGER010 = 0
DefColor
Cls
Print "@POFF@"
PrintLn "@X0F─@X0C─@X04─@X0F<┤@X0CE@X04GiS @X0FC@X0Co@X04RP @X0FB@X0Ca@X04TTLe @X0FF@X0Ci@X04eLD @X0FS@X0Cy@X04SoP @X0Fu@X0CT@X04iLS─────────────@X0C─@X0F┬@X0C─@X04────@X0FB@X0Cy @X0FN@X0Cu@X04MBeR @X0FS@X0Ci@X04X─────@X0C─@X0F┐"
PrintLn "@X06░ ▒ @X0E░ @X06░ @X07▐█▄ @X0C▀▀ @X0F▄▄ @X0C▀ @X0F▄▄ @X7F▓@X0F ▄@X7F█@X0F▄ @X07▄@X7F░@X07▄ @X06▐▌ █▒ ░▀▀▄▓@X0C│ │"
PrintLn "@X0C @X06░ ░ ░ @X07█@X7F░@X07█▄@X7F▒▓@X0F█████▄██▄██@X7F▓█@X0F▐█@X7F▓▓@X0F█@X7F░@X07█▀ @X0C▀@X6C▓@X0F @X06░ @X0E░ @X06▒@X04│ │"
PrintLn "@X04 @X6E░@X06█░ ▒@X0E░ @X06░ @X07▀▀@X7F▒▓@X0F█▀███████▌██@X7F▓@X0F▀▀ @X7F▒@X78░@X0F @X0C▐▌ @X0E░ ▒ @X06▐@X04│ │"
PrintLn "@X6E░▒░@X06█@X6E░@X06▓@X0E▒ @X06▒ ░ @X0F▀ @X7F░@X0F @X0C▀▄@X6C▓@X0C▌ @X06▄@X0E▒ ░ ▓ @X06▄▌@X04│ │"
PrintLn "@X0E█▌@X6E▒@X06▄@X6E▒░@X0E▓@X6E░@X06▓@X6E░@X06▒ @X0C▄▀ @X07▐▌ @X0C▐▀@X6C▒@X0F @X0E▓░▒▓▓@X6E░▓@X07 @X04│ │"
PrintLn "@X04 @X0E▀@X6E█▒@X0E█@X6E▓@X0E▀@X6E▒░▒@X06░▓ @X0F▄▄@X7F░@X0F▄ @X04▄▄▄█▓█▓▄ @X07█ @X08▄ @X0C▐@X06▌ @X0E▐@X6E▓▒▒@X0E█▀ @X04│ │"
PrintLn "@X04▄ @X0E▀ ▀▄▀▀▄@X6E▓@X0E▀ @X0F▐▀▄▀▀ @X04▄████▓▓████ @X07▐▌▄@X78▓@X08▄ @X04■ @X6C▒@X0F @X0E▀▀ @X0C▄█@X04│ │"
PrintLn "@X04██▀ ▄ ▄ @X0F▀@X7F░▒@X0F▄@X7F▓@X0F ▄▄▄@X04▀@X0F▄▄@X04▀▀▀@X0F▄▄▄▄@X7F▒░@X78░▒▓@X08▀ @X04▌@X6C░@X0C▌ ▄██ @X04│ │"
PrintLn "@X04▀ ▄ ▀ @X0F▀@X7F▒▓█▓@X0F██@X7F▓@X0F█████████@X7F▓▓@X07▐@X7F░@X78░@X08▀ @X04▓ @X6C▒@X0F @X0C▄█▀ ▄@X04│ │"
PrintLn "@X04 ▄▄█▀ @X07███@X0C▄@X6C▓@X0C▄▄▄▄▄▄▄@X0F▀▀▀▀███▐@X7F▓@X0F▀▀@X07▄▀ @X04▄▓▀@X0C▐▌@X07███ @X0C▐█ ▀ @X04│ │"
PrintLn "@X04████▀ ▄ ▀ ▄█@X07█ @X0C▐██▀█@X6C▓▓▓▓▒▒░░@X06▄▄░▄▄ ▓ @X04▀▓▀@X06▄▓@X6C▒@X0C░@X07██ @X0C▀ @X07█@X06▄▌ @X04│ │"
PrintLn "@X0F┌@X09─@X01─────────────────────────────────────────────────@X09─@X0F┐@X04│ │"
PrintLn "@X09│ │@X04│ │"
PrintLn "@X01│ │@X04│ │"
PrintLn "@X01│ │@X04│ │"
PrintLn "@X01│ │@X04│ │"
PrintLn "@X01│ │@X04│ │"
PrintLn "@X01│ │@X04│ │"
PrintLn "@X01│ │@X04│ │"
PrintLn "@X09│ │@X0C│ │"
PrintLn "@X0F└@X09─@X01─────────────────────────────────────────────────@X09─@X0F┘└@X0C─@X04──────────────────────@X0C─@X0F┘"
:LABEL001
Gosub LABEL022
INTEGER005 = 0
INTEGER006 = 0
INTEGER007 = 0
INTEGER008 = 0
INTEGER009 = 0
INTEGER010 = 0
Gosub LABEL018
STRING026 = PPEPath() + "NUSERS.DAT"
STRING027 = PPEPath() + "REGD.DAT"
Gosub LABEL011
If (STRING028 == "") Goto LABEL010
AnsiPos 62, 22
Print "@X8FLoaDiNG..."
STRING021 = STRING028
Gosub LABEL019
FOpen 1, STRING022, 0, 2
FGet 1, STRING023
FGet 1, INTEGER005
:LABEL002
FGet 1, STRING020
If (STRING020 == "[iS_HaTiNG]") Then
:LABEL003
FGet 1, STRING020
If (STRING020 <> "[eND]") INTEGER010 = INTEGER010 + 1
If (STRING020 <> "[eND]") Goto LABEL003
Endif
If (STRING020 == "[iS_HaTeD_BY]") Then
:LABEL004
FGet 1, STRING020
If (STRING020 <> "[eND]") INTEGER009 = INTEGER009 + 1
If (STRING020 <> "[eND]") Goto LABEL004
Endif
If (STRING020 <> "[eND_DaTa]") Goto LABEL002
REAL001 = INTEGER013
REAL003 = INTEGER009 + INTEGER010
REAL002 = (100 / ((REAL001 - 1) * 2)) * REAL003
INTEGER011 = REAL002
FClose 1
FOpen 1, STRING022, 0, 2
:LABEL005
FGet 1, STRING019
If (STRING019 == "[BeGiN_MeSSaGe]") INTEGER006 = INTEGER006 + 1
If (STRING019 == "[BeGiN_BRiBe_GiFT]") INTEGER007 = INTEGER007 + 1
If (STRING019 == "[BeGiN_DeCLaRaTioN]") INTEGER008 = INTEGER008 + 1
If (STRING019 <> "[eND_DaTa]") Goto LABEL005
FClose 1
AnsiPos 62, 22
Print "@X04──────────"
DefColor
Gosub LABEL028
Gosub LABEL020
STRING018 = "#"
:LABEL006
STRING018 = Inkey()
If (InStr(STRING024, STRING018) == 0) Goto LABEL006
If ((STRING018 == "UP") || (STRING018 == "8")) Then
INTEGER014 = INTEGER015
If (INTEGER015 == 1) Then
INTEGER015 = 8
Goto LABEL007
Endif
INTEGER015 = INTEGER015 - 1
:LABEL007
Gosub LABEL020
Endif
If ((STRING018 == "DOWN") || (STRING018 == "2")) Then
INTEGER014 = INTEGER015
If (INTEGER015 == 8) Then
INTEGER015 = 1
Goto LABEL008
Endif
INTEGER015 = INTEGER015 + 1
:LABEL008
Gosub LABEL020
Endif
If (STRING018 == Chr(13)) Goto LABEL009
If (STRING018 == Chr(27)) Goto LABEL001
Goto LABEL006
:LABEL009
INTEGER017 = GetX()
INTEGER018 = GetY()
If (INTEGER015 == 1) Gosub LABEL023
If (INTEGER015 == 2) Gosub LABEL024
If (INTEGER015 == 3) Gosub LABEL037
If (INTEGER015 == 4) Gosub LABEL040
If (INTEGER015 == 5) Gosub LABEL043
If (INTEGER015 == 6) Gosub LABEL031
If (INTEGER015 == 7) Gosub LABEL034
If (INTEGER015 == 8) Gosub LABEL029
AnsiPos INTEGER017, INTEGER018
Goto LABEL006
:LABEL010
AnsiPos 1, 23
Wait
DefColor
End
:LABEL011
INTEGER023 = S2I(ReadLine(STRING026, 1), 10)
FClose -1
INTEGER024 = 1
Gosub LABEL017
INTEGER025 = 1
Gosub LABEL015
:LABEL012
STRING030 = Inkey()
STRING030 = Upper(STRING030)
If (STRING030 == "") Goto LABEL012
If ((STRING030 == "DOWN") || (STRING030 == "2")) Then
If (INTEGER025 < INTEGER023) Then
If (INTEGER025 < INTEGER024 + 15) Then
Gosub LABEL016
Inc INTEGER025
Gosub LABEL015
Goto LABEL012
Goto LABEL013
Endif
Gosub LABEL016
INTEGER024 = INTEGER024 + 16
Gosub LABEL017
INTEGER025 = INTEGER024
Gosub LABEL015
Goto LABEL012
Endif
Endif
:LABEL013
If ((STRING030 == "UP") || (STRING030 == "8")) Then
If (INTEGER025 > 1) Then
If (INTEGER025 > INTEGER024) Then
Gosub LABEL016
Dec INTEGER025
Gosub LABEL015
Goto LABEL012
Goto LABEL014
Endif
Gosub LABEL016
INTEGER024 = INTEGER024 - 16
Gosub LABEL017
INTEGER025 = INTEGER024 + 15
Gosub LABEL015
Goto LABEL012
Endif
Endif
:LABEL014
If (((STRING030 == "PGDN") || (STRING030 == "3")) || (STRING030 == "D")) Then
If (INTEGER024 + 15 < INTEGER023) Then
INTEGER002 = INTEGER025
Gosub LABEL016
INTEGER024 = INTEGER024 + 16
Gosub LABEL017
INTEGER025 = INTEGER002 + 16
If (INTEGER025 > INTEGER023) INTEGER025 = INTEGER023
Gosub LABEL015
Goto LABEL012
Endif
Endif
If (((STRING030 == "PGUP") || (STRING030 == "9")) || (STRING030 == "U")) Then
If (INTEGER024 > 1) Then
INTEGER002 = INTEGER025
Gosub LABEL016
INTEGER024 = INTEGER024 - 16
Gosub LABEL017
INTEGER025 = INTEGER002 - 16
Gosub LABEL015
Goto LABEL012
Endif
Endif
If (STRING030 == Chr(27)) Then
FClose -1
STRING028 = ""
Return
Endif
If (STRING030 == Chr(13)) Then
STRING028 = ReadLine(STRING027, INTEGER025)
FClose -1
Return
Endif
Goto LABEL012
:LABEL015
AnsiPos 55, 5 + INTEGER025 - INTEGER024
STRING029 = ReadLine(STRING027, INTEGER025)
STRING029 = Space((24 - Len(STRING029)) / 2) + Upper(STRING029) + Space((24 - Len(STRING029)) / 2)
Print "@X1F", STRING029 + Space(24 - Len(STRING029))
Return
:LABEL016
AnsiPos 55, 5 + INTEGER025 - INTEGER024
STRING029 = ReadLine(STRING027, INTEGER025)
STRING029 = Space((24 - Len(STRING029)) / 2) + STRING029 + Space((24 - Len(STRING029)) / 2)
Print "@X0F", STRING029 + Space(24 - Len(STRING029))
Return
:LABEL017
For INTEGER025 = INTEGER024 To INTEGER024 + 15
Gosub LABEL016
Next
Return
:LABEL018
AnsiPos 2, 14
PrintLn "@X07 uSeR NaMe @X0F: "
AnsiPos 2, 15
PrintLn "@X07 CReDiTS @X0F: "
AnsiPos 2, 16
PrintLn "@X07 WaiTiNG MsGS.@X0F: "
AnsiPos 2, 17
PrintLn "@X07 WaiTiNG BRiB.@X0F: "
AnsiPos 2, 18
PrintLn "@X07 WaiTiNG DeCL.@X0F: "
AnsiPos 2, 19
PrintLn "@X07 HaTeD By @X0F: "
AnsiPos 2, 20
PrintLn "@X07 HaTeS @X0F: "
AnsiPos 2, 21
PrintLn "@X07 HaTe-o-MeTeR @X0F: "
Return
:LABEL019
STRING021 = Upper(STRING021)
INTEGER004 = 0
For INTEGER003 = 1 To Len(STRING021)
INTEGER004 = INTEGER004 + Asc(Mid(STRING021, INTEGER003, 1))
Next
STRING029 = I2S(INTEGER004, 16)
STRING022 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING021, " "), 3) + Right(Trim(STRING021, " "), 4) + Left(STRING029, 1) + "." + Mid(STRING029, 2, 3), " ")
Return
:LABEL020
AnsiPos 2, INTEGER014 + 13
Print "@X07" + ScrText(2, INTEGER014 + 13, 14, 0)
AnsiPos 2, INTEGER015 + 13
Print "@X1F" + ScrText(2, INTEGER015 + 13, 14, 0)
Return
:LABEL021
DefColor
For INTEGER001 = 2 To 21
AnsiPos 55, INTEGER001
Print Space(24)
Next
Return
:LABEL022
AnsiPos 60, 3
Print "@X0FSeLeCT a uSeR"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
Return
:LABEL023
Gosub LABEL021
AnsiPos 62, 3
Print "@X0FuSeR iNFo"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
STRING023 = Upper(STRING023)
INTEGER016 = U_RecNum(STRING023)
GetAltUser INTEGER016
Color 15
AnsiPos 56, 5
STRING025 = STRING023
Gosub LABEL027
Print STRING025
AnsiPos 56, 6
STRING025 = U_City
Gosub LABEL027
Print STRING025
AnsiPos 56, 7
STRING025 = String(U_HVPhone)
Gosub LABEL027
Print STRING025
AnsiPos 56, 8
STRING025 = String(U_BDPhone)
Gosub LABEL027
Print STRING025
AnsiPos 56, 10
STRING025 = "SeC: " + String(U_Sec)
Gosub LABEL027
Print STRING025
AnsiPos 56, 11
STRING025 = "PwD: " + U_Pwd
Gosub LABEL027
Print STRING025
DefColor
Return
:LABEL024
Gosub LABEL021
AnsiPos 61, 3
Print "@X0FCReDiT iNFo"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
AnsiPos 56, 6
STRING025 = String(INTEGER005) + " CReDiTZ"
Gosub LABEL027
Print STRING025
STRING007 = "RIGHT"
STRING013 = "@X0FaDJuST CReDZ @X1F YES @X08 Nah "
STRING012 = "@X0FaDJuST CReDZ@X08 Yes @X1F NAH "
AnsiPos 56, 8
STRING009 = GetY()
DispStr STRING012
:LABEL025
STRING008 = Inkey()
If (((STRING008 <> "LEFT") && (STRING008 <> "RIGHT")) && (STRING008 <> Chr(13))) Goto LABEL025
If (STRING008 <> Chr(13)) Then
STRING007 = STRING008
If (STRING007 == "LEFT") Then
AnsiPos 56, 8
DispStr STRING013
DefColor
Endif
If (STRING007 == "RIGHT") Then
AnsiPos 56, 8
DispStr STRING012
DefColor
Endif
Goto LABEL025
Endif
If (STRING007 == "LEFT") Then
AnsiPos 56, 10
INTEGER019 = INTEGER005
InputText "@X0FNeW VaLue", INTEGER019, 15, 4
If (String(INTEGER019) <> "") INTEGER005 = INTEGER019
FOpen 1, PPEPath() + "BFSTMP." + String(PcbNode()), 1, 0
FOpen 2, STRING022, 0, 2
FGet 2, STRING014
FGet 2, STRING014
FPutLn 1, Upper(STRING023)
FPutLn 1, String(INTEGER005)
:LABEL026
FGet 2, STRING014
FPutLn 1, STRING014
If (STRING014 <> "[eND_DaTa]") Goto LABEL026
FClose 2
FClose 1
Delete STRING022
Copy PPEPath() + "BFSTMP." + String(PcbNode()), STRING022
Delete PPEPath() + "BFSTMP." + String(PcbNode())
Gosub LABEL028
Goto LABEL024
Endif
AnsiPos 56, 8
DefColor
Print Space(23)
Return
:LABEL027
STRING025 = Mid(STRING025, 1, 22)
STRING025 = Replace(STRING025, "0", "o")
STRING025 = Replace(STRING025, "A", "a")
STRING025 = Replace(STRING025, "E", "e")
STRING025 = Replace(STRING025, "I", "i")
STRING025 = Replace(STRING025, "O", "o")
STRING025 = Replace(STRING025, "U", "u")
STRING025 = Trim(STRING025, " ")
STRING025 = Space((22 - Len(STRING025)) / 2) + STRING025
Return
:LABEL028
Print "@X0F"
AnsiPos 18, 14
Print STRING023
AnsiPos 18, 15
Print String(INTEGER005) + Space(5)
AnsiPos 18, 16
Print String(INTEGER006)
AnsiPos 18, 17
Print String(INTEGER007)
AnsiPos 18, 18
Print String(INTEGER008)
AnsiPos 18, 19
Print String(INTEGER009)
AnsiPos 18, 20
Print String(INTEGER010)
AnsiPos 18, 21
Print String(INTEGER011) + "%"
Return
:LABEL029
Gosub LABEL021
AnsiPos 61, 3
Print "@X0FHaTe-o-MeTeR"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
REAL001 = INTEGER013
REAL003 = INTEGER009 + INTEGER010
REAL002 = (22 / ((REAL001 - 1) * 2)) * REAL003
If (REAL002 > 22) REAL002 = 22
STRING010 = "@X0A■"
INTEGER021 = 1
While (INTEGER021 < REAL002) Do
If (INTEGER021 == 10) STRING010 = STRING010 + "@X0E"
If (INTEGER021 == 19) STRING010 = STRING010 + "@X0C"
STRING010 = STRING010 + "■"
Inc INTEGER021
EndWhile
STRING010 = STRING010 + "@X0F"
While (Len(StripAtx(STRING010)) < 22) Do
STRING010 = STRING010 + "·"
EndWhile
AnsiPos 56, 6
PrintLn STRING010
AnsiPos 55, 7
If (REAL002 < 2) Then
PrintLn " PeaCeFull... "
ElseIf (REAL002 < 5) Then
PrintLn " NoT BaD... "
ElseIf (REAL002 < 10) Then
PrintLn " iT CoMeS !... "
ElseIf (REAL002 < 15) Then
PrintLn " ReaLLy GooD ! "
ElseIf (REAL002 <= 20) Then
PrintLn " ouTSTaNDiNG !! "
ElseIf (REAL002 > 20) Then
PrintLn " !¡! FuRiouS !¡! "
Goto LABEL030
Endif
:LABEL030
Return
:LABEL031
Gosub LABEL021
AnsiPos 63, 3
Print "@X0FHaTeD By"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
INTEGER020 = 0
FOpen 2, STRING022, 0, 0
:LABEL032
FGet 2, STRING020
If (STRING020 == "[iS_HaTeD_BY]") Then
:LABEL033
FGet 2, STRING020
If (STRING020 <> "[eND]") Then
INTEGER020 = INTEGER020 + 1
If (INTEGER020 == 17) Then
AnsiPos 1, 23
Wait
Gosub LABEL021
AnsiPos 63, 3
Print "@X0FHaTeD By"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
INTEGER020 = 1
Endif
AnsiPos 56, 4 + INTEGER020
STRING025 = STRING020
Gosub LABEL027
Print STRING025
Endif
If (STRING020 <> "[eND]") Goto LABEL033
Endif
If (STRING020 <> "[eND_DaTa]") Goto LABEL032
FClose 2
Return
:LABEL034
Gosub LABEL021
AnsiPos 64, 3
Print "@X0FHaTeS"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
INTEGER020 = 0
FOpen 2, STRING022, 0, 0
:LABEL035
FGet 2, STRING020
If (STRING020 == "[iS_HaTiNG]") Then
:LABEL036
FGet 2, STRING020
If (STRING020 <> "[eND]") Then
INTEGER020 = INTEGER020 + 1
If (INTEGER020 == 17) Then
AnsiPos 1, 23
Wait
Gosub LABEL021
AnsiPos 64, 3
Print "@X0FHaTeS"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
INTEGER020 = 1
Endif
AnsiPos 56, 4 + INTEGER020
STRING025 = STRING020
Gosub LABEL027
Print STRING025
Endif
If (STRING020 <> "[eND]") Goto LABEL036
Endif
If (STRING020 <> "[eND_DaTa]") Goto LABEL035
FClose 2
Return
:LABEL037
INTEGER022 = 0
Gosub LABEL021
AnsiPos 63, 3
Print "@X0FMeSSaGeS"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
If (INTEGER006 == 0) Then
STRING025 = "SoRRY, No MeSSaGeS"
Gosub LABEL027
AnsiPos 56, 6
Print STRING025
Return
Endif
FOpen 1, STRING022, 0, 0
:LABEL038
FGet 1, STRING011
If (STRING011 <> "[MeSSaGeS_WaiTiNG]") Goto LABEL038
:LABEL039
Gosub LABEL021
FGet 1, STRING015
FGet 1, STRING015
Color 15
STRING025 = "FRoM " + STRING015
Gosub LABEL027
AnsiPos 56, 2
Print STRING025
FGet 1, STRING015
If (STRING015 == "0") STRING015 = "SiGNeD"
If (STRING015 == "1") STRING015 = "aNoNYMouS"
STRING025 = STRING015
Gosub LABEL027
AnsiPos 56, 3
Print STRING025
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
INTEGER022 = INTEGER022 + 1
For INTEGER012 = 1 To 16
FGet 1, STRING015
STRING025 = STRING015
Gosub LABEL027
AnsiPos 56, 4 + INTEGER012
Print STRING025
Next
FGet 1, STRING015
Gosub LABEL046
If (INTEGER022 == INTEGER006) Then
AnsiPos 1, 23
Wait
Else
If (STRING007 == "LEFT") Goto LABEL039
Endif
AnsiPos 56, 2
Print Space(23)
AnsiPos 56, 3
Print Space(23)
FClose 1
Return
:LABEL040
INTEGER022 = 0
Gosub LABEL021
AnsiPos 64, 3
Print "@X0FBRiBeS"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
If (INTEGER007 == 0) Then
STRING025 = "SoRRY, No BRiBeS"
Gosub LABEL027
AnsiPos 56, 6
Print STRING025
Return
Endif
FOpen 1, STRING022, 0, 0
:LABEL041
FGet 1, STRING011
If (STRING011 <> "[BRiBe_GiFT]") Goto LABEL041
:LABEL042
Gosub LABEL021
FGet 1, STRING015
FGet 1, STRING015
Color 15
STRING025 = "FRoM " + STRING015
Gosub LABEL027
AnsiPos 56, 2
Print STRING025
FGet 1, STRING015
If (STRING015 == "0") STRING015 = "SiGNeD"
If (STRING015 == "1") STRING015 = "aNoNYMouS"
STRING025 = STRING015
FGet 1, STRING015
STRING025 = STRING025 + " [" + STRING015 + " CReDZ]"
Gosub LABEL027
AnsiPos 56, 3
Print STRING025
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
INTEGER022 = INTEGER022 + 1
For INTEGER012 = 1 To 11
FGet 1, STRING015
STRING025 = STRING015
Gosub LABEL027
AnsiPos 56, 4 + INTEGER012
Print STRING025
Next
FGet 1, STRING015
Gosub LABEL046
If (INTEGER022 == INTEGER007) Then
AnsiPos 1, 23
Wait
Else
If (STRING007 == "LEFT") Goto LABEL042
Endif
AnsiPos 56, 2
Print Space(23)
AnsiPos 56, 3
Print Space(23)
FClose 1
Return
:LABEL043
INTEGER022 = 0
Gosub LABEL021
AnsiPos 61, 3
Print "@X0FDeCLaRaTioNS"
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
If (INTEGER008 == 0) Then
STRING025 = "SoRRY, No DeCLaRaTioNS"
Gosub LABEL027
AnsiPos 56, 6
Print STRING025
Return
Endif
FOpen 1, STRING022, 0, 0
:LABEL044
FGet 1, STRING011
If (STRING011 <> "[DeCLaRaTioNS]") Goto LABEL044
:LABEL045
Gosub LABEL021
FGet 1, STRING015
FGet 1, STRING015
Color 15
STRING025 = "FRoM " + STRING015
Gosub LABEL027
AnsiPos 56, 2
Print STRING025
FGet 1, STRING015
If (STRING015 == "0") STRING015 = "SiGNeD"
If (STRING015 == "1") STRING015 = "aNoNYMouS"
STRING025 = STRING015
Gosub LABEL027
AnsiPos 56, 3
Print STRING025
AnsiPos 56, 4
Print "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
INTEGER022 = INTEGER022 + 1
For INTEGER012 = 1 To 11
FGet 1, STRING015
STRING025 = STRING015
Gosub LABEL027
AnsiPos 56, 4 + INTEGER012
Print STRING025
Next
FGet 1, STRING015
Gosub LABEL046
If (INTEGER022 == INTEGER008) Then
AnsiPos 1, 23
Wait
Else
If (STRING007 == "LEFT") Goto LABEL045
Endif
AnsiPos 56, 2
Print Space(23)
AnsiPos 56, 3
Print Space(23)
FClose 1
Return
:LABEL046
STRING007 = "LEFT"
AnsiPos 56, 21
DispStr STRING016
:LABEL047
STRING008 = Inkey()
If (((STRING008 <> "LEFT") && (STRING008 <> "RIGHT")) && (STRING008 <> Chr(13))) Goto LABEL047
If (STRING008 <> Chr(13)) Then
STRING007 = STRING008
If (STRING007 == "RIGHT") Then
AnsiPos 56, 21
DispStr STRING017
DefColor
Endif
If (STRING007 == "LEFT") Then
AnsiPos 56, 21
DispStr STRING016
DefColor
Endif
Goto LABEL047
Endif
AnsiPos 56, 21
DefColor
Print Space(23)
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 6 Wait
; 4 Color
; 106 Goto
; 158 Let
; 71 Print
; 37 PrintLn
; 97 If
; 9 FOpen
; 12 FClose
; 32 FGet
; 3 FPutLn
; 11 DefColor
; 2 Delete
; 73 Gosub
; 24 Return
; 2 Inc
; 1 Dec
; 1 InputText
; 6 DispStr
; 93 AnsiPos
; 1 Copy
; 1 GetAltUser
;
;
; ■ Functions used :
;
; 3 -
; 4 *
; 7 /
; 271 +
; 15 -
; 62 ==
; 25 <>
; 15 <
; 7 <=
; 6 >
; 12 >=
; 51 !
; 16 &&
; 14 ||
; 10 Len(
; 5 Upper()
; 3 Mid()
; 2 Left()
; 1 Right()
; 17 Space()
; 158 Chr()
; 1 Asc()
; 1 InStr()
; 4 Trim()
; 1 U_Name()
; 1 StripAtx()
; 6 Replace()
; 4 Inkey()
; 17 String()
; 7 PPEPath()
; 3 PcbNode()
; 5 ReadLine()
; 1 CallId()
; 1 I2S()
; 1 S2I()
; 1 GetX()
; 2 GetY()
; 1 U_RecNum()
; 2 ScrText()
;
;------------------------------------------------------------------------------
;
; Analysis flags : RH
;
; R - Read user ■ 5
; User records are read, this may signify that someone wants to get
; various informations about a user (for example his password), but
; this may also be normal for a program accessing user records (for
; example a User Editor)
; ■ Search for : GETALTUSER
;
; H - Read Password or Password History ■ 5
; Program is reading the user's password or last password history
; This may be ok for a password manager, but it is very suspect. Check!
; ■ Search for : U_PWDHIST, U_PWD
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 6 For/Next
; 2 While/EndWhile
; 43 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------